Tarea 3

library(readr) # lectura de archivos CSV
library(tidyr)
library(readxl) # lectura de archivos XLS
library(dplyr) # transformación de datos

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(DT) # tablas interactivas
library(sf) # manejo de datos vectoriales

## Linking to GEOS 3.9.1, GDAL 3.3.2, PROJ 7.2.1; sf_use_s2() is TRUE

library(leaflet) # mapas interactivos

## Warning: package 'leaflet' was built under R version 4.2.1

library(leaflet.extras)

## Warning: package 'leaflet.extras' was built under R version 4.2.1

library(leafem)

## Warning: package 'leafem' was built under R version 4.2.1

library(spData)

## Warning: package 'spData' was built under R version 4.2.1

## To access larger datasets in this package, install the spDataLarge
## package with: `install.packages('spDataLarge',
## repos='https://nowosad.github.io/drat/', type='source')`

library(ggplot2)
library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(RColorBrewer)

cantones <-
  st_read(
    dsn = "C:/Users/Josue Alcazar/Desktop/R Tareas/cantones_simplificados.geojson",
    quiet = TRUE) %>%
  st_transform(4326)

Datos_Policiales <-
  read_xls(path = "C:/Users/Josue Alcazar/Desktop/R Tareas/estadisticaspoliciales2021.xls")

(1.Una tabla DT con las columnas Delito, Fecha, Víctima, Edad, Género, Provincia y Cantón.

- Los encabezados de las columnas en la tabla deben estar correctamente escritos (ej. con tildes), pero no deben alterarse los nombres de las columnas del conjunto de datos. Sugerencia: utilice el argumento colnames de la función DT::datatable().

- Los controles de la tabla deben estar en español.)

Datos_Policiales %>%
  select(Delito, Fecha, Victima, Provincia, Canton, Distrito) %>%
    datatable(
    colnames = c("Delito", "Fecha", "Víctima", "Edad", "Género", "Provincia", "Cantón" ),
    options = list(
    pageLength = 10,
    language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json')
  ))

## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html

Un gráfico de barras simples, generado con ggplot2 y traducido a plotly con ggplotly(), que muestre la cantidad de delitos por tipo de delito (una barra por tipo de delito: asalto, homicidio, hurto, etc).

-Las barras del gráfico deben estar ordenadas por longitud, de la más larga a la más corta (ya sea de izquierda a derecha o de arriba a abajo).

-El gráfico debe tener título, etiqueta para el eje X y etiqueta para el eje Y.

-Todo el contenido del gráfico debe ser legible.

-Los controles del gráfico deben estar en español.

delitos_x_tipodelito <-
  Datos_Policiales %>%
  count(Delito, name = "Cantidad de delitos")# con esto cuento la cantidad de delitos por tipo de delito y agrego la columna para el grafico 

Grafico_barras_delixprov <-
 delitos_x_tipodelito %>%
  ggplot(aes(x = reorder(Delito, `Cantidad de delitos`), y = `Cantidad de delitos`)) +
  geom_bar(stat = "identity") +
  ggtitle("Cantidad de delitos por tipo de delito") +
  xlab("Tipo de delito") +
  ylab("Cantidad de delitos") +
  coord_flip() +
  theme_minimal()


ggplotly(Grafico_barras_delixprov) %>% config(locale = 'es')

Un gráfico de barras simples, generado con ggplot2 y traducido a plotly con ggplotly(), que muestre la cantidad de delitos por víctima (una barra por víctima: edificación, persona, vivienda, etc.).

- Las barras del gráfico deben estar ordenadas por longitud, de la más larga a la más corta (ya sea de izquierda a derecha o de arriba a abajo).

- El gráfico debe tener título, etiqueta para el eje X y etiqueta para el eje Y.

- Todo el contenido del gráfico debe ser legible.

- Los controles del gráfico deben estar en español.